home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / smalleiffel / lib_show / animal / sample2.e < prev    next >
Text File  |  2000-03-25  |  270b  |  21 lines
  1. class SAMPLE2
  2.  
  3. creation {ANY}
  4.    make
  5.  
  6. feature {ANY}
  7.  
  8.    chat: CHAT;
  9.  
  10.    mille_pattes: MILLE_PATTES;
  11.  
  12.    make is
  13.       do
  14.          !!chat;
  15.          !!mille_pattes;
  16.          chat.felicitations(chien);
  17.          mille_pattes.felicitations(chat);
  18.       end;
  19.  
  20. end -- SAMPLE2
  21.